home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 2 / Tech Arsenal 2 (Arsenal Computer).iso / clipper / s93bsp.exe / CL5 / QBDBFUNC.PRG < prev    next >
Encoding:
Text File  |  1993-11-26  |  1.9 KB  |  79 lines
  1. ///////////////////////////////////////////////////////////////
  2. //
  3. //  Module : QBDBFUNC.PRG
  4. //
  5. //  Created by SUMMER'93 (c) on Fri Nov 26 14:50:38 1993
  6. //
  7. ///////////////////////////////////////////////////////////////
  8. #include "snj.ch"
  9. // Q B D B F U N C
  10.  
  11. function QBDBCTRL( DBNAME, MODE ) // Amended by SUMMER93
  12. // Calls: QBCLMESS QBPROMPT 
  13. // Called By: 
  14. // The following locals have been declared by Summer'93
  15. // MTLINENO 
  16. local MTLINENO
  17.  
  18. do QBCLMESS
  19. QBKEY( lastkey( ) )
  20. if QBKEY()  = 27 
  21.     GETOUT( .t.  )
  22.     return - 1 
  23. endif 
  24.  
  25. do case 
  26.     case MODE  = 0 .or. MODE  = 1 
  27.         do EEDDPRMT
  28.         return 1 
  29.     case( MADD() ) .or.( MODE  = 3 )
  30.         QBRESP( "A"  )
  31.         MTLINENO := 0 
  32.     case MODE  = 2 
  33.         do QBPROMPT with "Add new " + DBNAME + " lines? (Y/N)", "YN" 
  34.         if QBRESP()  = "Y" 
  35.             QBRESP( "A"  )
  36.             MTLINENO := 0 
  37.         endif 
  38.     case QBKEY()  = 13 
  39.         do QBPROMPT with "Edit this line? (Y/N)", "YN" 
  40.         if QBRESP()  = "Y" 
  41.             QBRESP( "E"  )
  42.         endif 
  43.     case upper( chr(QBKEY() ))$ "EDUQ" 
  44.         QBRESP( upper( chr(QBKEY() )) )
  45.     otherwise 
  46.         do QBPROMPT with "(I)gnore, (E)dit, (D)elete, (U)ndelete all, (Q)uit";
  47.         , "IEDUQ" 
  48. endcase 
  49.  
  50. return 0  //       Action for dbedit
  51.  
  52.  
  53. //**------------------------------------
  54. procedure QBDBEXIT( DBNAME, CURREC ) // Amended by SUMMER93
  55. // Calls: QBPROMPT 
  56. // Called By: 
  57. local GO_REC, SCRBOT
  58.  
  59.  
  60. if GETOUT() 
  61.     do QBPROMPT with "Finished " + DBNAME + " editing? (Y/N)", "NY" 
  62.     GETOUT( ( QBRESP()  = "Y" ) )
  63. endif 
  64.  
  65. if !GETOUT() 
  66.     do EEDDPRMT
  67.     GO_REC := max( reccount() - 6, 1 )
  68.     go GO_REC 
  69.     if !MADD() 
  70.         SCRBOT := replicate( chr(24 ), iif(GO_REC  = 1, CURREC - 1, 6 ))
  71.     else 
  72.         SCRBOT := replicate( chr(24 ), 15 )
  73.     endif 
  74.     keyboard SCRBOT 
  75. endif 
  76.  
  77. return 
  78. // End of file
  79.